MessageBox(OK,1,INFORMATION,"Oriel allows you to create informational messages, like this one...","F.Y.I.",null_var)
MessageBox(OK,1,EXCLAMATION,"Or you can be more emphatic about sharing information...","This is exciting!",null_var)
MessageBox(OKCANCEL,1,STOP,"Sometimes, you may need to be the bearer of bad tidings...","You cannot do this!",Resp1)
If Resp1 = 2 Then MessageBox(OK,1,INFORMATION,"Although Oriel will permit you to cancel the program, we'll continue with our demonstration...","",Null_var)
MessageBox(YESNOCANCEL,1,QUESTION,"And perhaps you may want to ask a question or two?","We await your response...",Resp2)
If Resp2 = 1 Then MessageBox(OK,1,EXCLAMATION,"So you can appreciate the value of Oriel!","Thanks for your response!",Null_var)
If Resp2 = 2 Then MessageBox(OK,1,EXCLAMATION,"But the ability to get user input is very, very important...","",Null_var)
If Resp2 = 3 Then MessageBox(OK,1,EXCLAMATION,"You've selected CANCEL, but we would like to continue with our demonstration anyway...","Cancel?",Null_var)
Goto Set_Text
{Read Mouse Coordinates}
Read_Mouse:
SetMenu()
UseBackground(TRANSPARENT,255,255,255)
DrawBackground
{Set up the mouse hit testing area and where to branch on a click}